Wear-Slot-P names an undocumented function, with lambda list (OBJECT).
Defined in file src/db/friendly.lisp.